home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / s / s_color1 / schieber / intro.gfa (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1996-09-18  |  3.3 KB  |  127 lines
  1. CLS
  2. SETCOLOR 0,0
  3. ' ##############################################################################
  4. ' #            MOTELSOFT VORSPANN CO.HARALD BREITMAIER MAI 88                  #
  5. ' ##############################################################################
  6. '
  7. ' ON BREAK GOSUB gfa
  8. ON BREAK CONT
  9. ON ERROR GOSUB gfa
  10. '
  11. GOSUB board
  12. SETCOLOR 15,0
  13. BMOVE VARPTR(bil1$),XBIOS(3),32000
  14. '
  15. ' ------------------------------------------------------------------------------
  16. ' ------------------------------------------------------------------------------
  17. zah%=1
  18. in:
  19. HIDEM
  20. '
  21. DO
  22.   a%=XBIOS(3)
  23. intro:
  24.   SETCOLOR 14,0
  25.   READ a$,ff%
  26.   DEFTEXT 13,1,0,ff%
  27.   VSYNC
  28.   TEXT 0,100,319,a$
  29.   VSYNC
  30.   IF ff%<>10
  31.     FOR ii%=0 TO 7
  32.       SETCOLOR 14,ii%,ii%,ii%                     !ba%
  33.       PAUSE 6
  34.     NEXT ii%
  35.   ENDIF
  36.   '
  37.   IF ff%=10
  38.     FOR ii%=0 TO 7
  39.       SETCOLOR 14,ii%,ii%,ii%                  !Ba%
  40.       PAUSE 6
  41.     NEXT ii%
  42.     PAUSE 50
  43.   ENDIF
  44.   '
  45.   PAUSE 50
  46.   EXIT IF a$="       1988        "
  47.   FOR i%=16320 TO 15860 STEP -4                              !26880 Step -160
  48.     BMOVE a%+160,a%,i%
  49.   NEXT i%
  50.   SETCOLOR 14,0
  51.   PAUSE 10
  52. LOOP
  53. PAUSE 50
  54. DEFFILL 0
  55. PBOX 0,80,319,120
  56. GET 0,120,319,199,ret$
  57. PUT 0,0,ret$
  58. PBOX 0,121,319,199
  59. COLOR 2
  60. BOX 0,80,159,120
  61. BOX 160,80,319,120
  62. SETCOLOR 15,7,7,7
  63. PRINT AT(6,12);"ZUM SPIEL"
  64. PRINT AT(26,12);"ZUM EDITOR"
  65. PAUSE 20
  66. SHOWM
  67. REPEAT
  68.   MOUSE x%,y%,k%
  69.   x%=x% DIV 159
  70.   y%=y% DIV 40
  71.   '  PRINT AT(1,1);x%;" ";y%;" "
  72. UNTIL k%
  73. IF x%=0
  74.   CHDIR "\"
  75.   CHAIN "A:\SCHIEBER\SCHIEBER.GFA"
  76. ELSE
  77.   CHDIR "\"
  78.   CHAIN "A:\SCHIEBER\EDITOR3.GFA"
  79. ENDIF
  80. GOSUB gfa
  81. ' ------------------------------------------------------------------------------
  82. PROCEDURE gfa
  83.   SETCOLOR 0,7,7,7
  84.   SETCOLOR 15,0
  85.   EDIT
  86. RETURN
  87. ' ------------------------------------------------------------------------------
  88. dat1:
  89. DATA MOTELSOFT,12
  90. DATA PRESENTS,9
  91. DATA SCHIEBUNG,10
  92. DATA   VERSION 1.0   ,8
  93. DATA     IDEE    ,4
  94. DATA UND VIELE LEVELS,4
  95. DATA WOLFGANG KAYKO,5
  96. DATA PROGRAMMIERUNG,4
  97. DATA     UND    ,4
  98. DATA      GRAFIK     ,4
  99. DATA HARALD BREITMAIER,6
  100. DATA        1988        ,5
  101. DATA   LOADING  PROGRAM   ,4
  102. DATA END,0
  103. ' ------------------------------------------------------------------------------
  104. PROCEDURE board
  105.   bil1$=SPACE$(32100)
  106.   '
  107.   farb$=SPACE$(34)                    !originalfarben des bildes laden
  108.   CLOSE #1
  109.   OPEN "i",#1,"A:\SCHIEBER\ART\TITEL.PI1"
  110.   BGET #1,VARPTR(farb$),34            !und in string farb$ ablegen
  111.   MID$(farb$,1,1)=CHR$(240)             !code farbstring geladen
  112.   z%=0
  113.   FOR i%=3 TO LEN(farb$) STEP 2       !jeweils 2 werte ergeben die farbe
  114.     farb1$=MID$(farb$,i%)             !wert 1
  115.     farb2$=MID$(farb$,i%+1)           !wert 2
  116.     a%=ASC(farb1$)                    !ascii code
  117.     b%=ASC(farb2$)                    !asci code
  118.     c%=a%*256+b%                      !wandeln in farbcode
  119.     SETCOLOR z%,c%                    !in die farbregister damit
  120.     INC z%                            !hilfszahler
  121.   NEXT i%
  122.   BGET #1,VARPTR(bil1$),32000
  123.   CLOSE #1
  124.   '
  125. RETURN
  126. '
  127.